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—File: WManSelection.mesa 

--Edited by Sandman October 7, 1977 9:20 AM 

DIRECTORY 
WindowDefs: FROM "windowdefs" . 
StreamDefs: FROM "streamdefs" , 
SystemOefs: FROM "systemdefs" , 
MenuDefs: FROM "menudefs", 
RectangleDefs: FROM "rectangledef s'* , 
WManagerDefs: FROM "wmanagerdef s" ; 

DEFINITIONS FROM StreamDefs. MenuDefs, WindowDefs, RectangleDefs, WManagerDefs; 

WManSelection: PROGRAM[WMState: WMDataHandle] 

IMPORTS WindowDefs, StreamDefs, SystemOefs, MenuDefs. RectangleDefs, WManagerDefs 

EXPORTS WManagerDefs 

SHARES StreamDefs, MenuDefs, WManagerDefs = 
BEGIN 

OPEN WMState; 

CR: CHARACTER = 15C; 
Space: CHARACTER = 40C; 

MenuSelect: PUBLIC PROCEDURE 

[w: WindowHandle, x: xCoord, y: yCoord]= 

BEGIN 

-- define locals 

index: INTEGER ♦• -1; 

mapx: xCoord; 

mapy: yCoord; 

defauUmenu: DESCRIPTOR FOR ARRAY OF Menultem = 

DESCRIPTOR[BASE[menuarray], LENGTH[menuarray]]; 
-- check if a menu 
IF w.menu = NIL THEN 

w.menu *- CreateMenu[def aul tmenu] ; 
-- paste it up there 

[mapx, mapy] ♦• CursorToMapCoords[def aul tmapdata, x, y]; 
mapy ♦• MIN[mapy, MAX[0, (w. rectangle. bitmap, heigh t) 

-(LENGTH[w.menu.array]*defau1tlineheight+2)]]; 
DisplayMenu[w.menu, w. rectangle. bitmap, mapx, mapy]; 
-- while the button is down select menu items 
WHILE GetMouseButton[] = Blue DO 

-- convert to rectangle coords 

X <- xcursorloct; 

y <- ycursorloct; 

-- and see if in menu 

[x, y] ♦- CursorToRectangleCoords[w. menu. rectangle, x, y]; 

IF X > AND x <= w.menu. rectangle. cw 

AND y > AND y <= w.menu . rectangle . ch 
THEN index ♦- y/def aul tl i nehei ght 
ELSE index ♦• -1; 
MarkMenuItem[w.menu , index]; 
ENDLOOP; 

-- and restore menus region and contents underneath 
CI earMenu [w.menu] ; 
-- see if command selected 
IF index # -1 THEN 

w.menu. array[ index] .proc[w, xcursorloct, ycursorloct]; 
END; 

TextSelect: PUBLIC PROCEDURE 

[w: WindowHandle, x: xCoord, y: yCoord]= 
BEGIN 

-- Declare Locals 
line, width: INTEGER; 
xpos: xCoord; 

saveindex, index: Streamlndex; 
sel : POINTER TO Selection; 
exsel: POINTER TO Selection; 
If w.file H NIL THEN 

BEGIN 

-- first find character under the bug and then mark the selection 

sel ^ SystemDef s . Al locateMeapNode[ST7F[Select ion]] ; 

exsel ♦- SystemOefs. AnocateHeapNode[SIZE[Select ion]]; 
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[line, xpos, width, index] ♦• Reso1veBugToPosition[w, x, y]; 

saveindex ♦• index; 

selt ♦- Se1ection[xpos, xpos+width, line, line, index, index]; 

MakeSelection[w, sel]; 

-- check for extensions 

WHILE GetMouseButton[] « Red DO 

IF X j^ xcursorloct OR y ^ ycursorloct THEN 
BEGIN 

X ♦• xcursorloct; y ♦• ycursorloct; 

[line, xpos, width, index] ♦- Resol veBugToPosition[w, x, y]; 
IF NOT Equallndex[saveindex. index] THEN 
BEGIN 
IF (line >= w. selection. leftl ine) AND 

(xpos >* w. selection. leftx) 
THEN exselt ♦- Selection[sel . leftx , xpos+width, 

sel . leftl ine, line, sel . leftindex, index] 
ELSE exselt ♦- Selection[xpos , sel.rightx, line, 

sel . rightl ine, index, sel .rightindex] ; 
MakeSelection[w, exsel]; 
saveindex ♦• index; 
END; 
END; 
ENOLOOP; 

SystemDef s . FreeHeapNode[sel ]; 
SystemDef s . FreeHeapNodef exsel ] ; 
END; 
END; 

WordSelect: PUBLIC PROCEDURE 

[w: WindowHandle, x: xCoord, y: yCoord]= 
BEGIN 

-- Declare Locals 
line: INTEGER; 

saveindex, index: Streamlndex; 
sel: POINTER TO Selection; 
exsel: POINTER TO Selection; 
IF w.file # NIL THEN 
BEGIN 

-- first find word under the bug and then mark the selection 
sel ♦- SystemDefs.AnocateHeapNode[SIZE[Selection]]; 
exsel ♦- SystemDefs. A11ocateHeapNode[SIZE[Selection]] ; 
[line, , , index] ♦- Resol veBugToPosition[w, x, y]; 
saveindex ♦• index; 

--check both ways for space to find whole word 
sel . leftl ine ♦- 1 ine; 
ExtendTheWord[w,sel , index]; 
MakeSelection[w. sel]; 

check for extensions 
WHILE GetMouseButton[] = Yellow DO 

IF X # xcursorloct OR y j^ ycursorloct THEN 

BEGIN 

X ♦• xcursorloct; y ♦• ycursorloct; 

[line, , , index] ♦- Resol veBugToPosition[w, x, y]; 

IF NOT Equal Index[saveindex, index] THEN 

BEGIN 

--extend the word and the selection 

exsel . leftl ine ♦• line; 

ExtendTheWord[w,exsel .index] ; 

IF (exsel . leftl ine >= w. selection . leftl ine) AND 

(exsel. leftx >= w. select ion . leftx) 
THEN exselt ♦- Select ion[sel . leftx , , sel . leftl ine, , sel . leftindex, ] 
ELSE exselt ♦- Selection[, sel.rightx, , sel . r igh tl ine , , sel . rightindex] ; 
MakeSelect ion[w, exsel]; 
saveindex *- index; 
END; 
END; 
ENOLOOP; 

SystemDefs , rreeHeapNode[sel ] ; 
SystemDefs . rreelleapNode[exsel ] ; 
END: 
END; 

fxtendTheWord: PROCrOURr [w: WindowHandle. sel: POINTER TO Selection, pes: Streamlndex] 
BEGIN 

-- declare- locals 
-- note that oldend/start point to previous word 
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-- and end/start refer to current word 

-- save points to index of current character 

savedindex, oldend, oldstart, save: Streamlndex; 

start, end: Streamlndex; 

leftpos, rightpos: xCoord; 

oldleft, oldright: xCoord; 

savewidth, nlines, width, lineno: INTEGER; 

char: CHARACTER; 

firsttime: BOOLEAN ♦- TRUE; 

lastline, overtheline: BOOLEAN *- FALSE; 

oldchar, newchar: {sp, ch, cc, xtra}; 

linestarts: DESCRIPTOR FOR ARRAY OF Streamlndex; 

nlines <- (w. rectangle. ch/w. ds . 1 ineheight)-!; 

linestarts ♦■ DESCRIPT0R[GetLineTab1e[] ,n1 ines]; 

savedindex ♦• Getlndex[w. f ile] ; lineno ^ sel . left! ine; 

IF lineno = nlines THEN lastline ♦■ TRUE; 

Setlndex[w.f ile, 1 inestarts[l ineno - 1]]; 

oldend ♦• oldstart ♦• start ♦• end ♦• Getlndex[w.f ile]; 

savewidth ♦• oldleft ♦- oldright ^ leftpos ♦• rightpos ♦■ leftmargin; 

WHILE GrEqualIndex[pos, start] DO 

IF NOT firsttime THEN oldchar ♦• newchar; 
save ♦- Getlndex[w.f ile] ; 
char ♦• w. file. get[w. file 

I StreamError => EXIT]; 
width ♦- IF char = IIC THEN ComputeTabWidth[w. ds . pfont , rightpos] 

ELSE ComputeCharWidth[char , w.ds. pfont]; 
IF NOT lastline THEN 
BEGIN 

IF save = 1 inestarts[l ineno] THEN 
BEGIN 

overthel ine *- TRUE; 
1 ineno <- 1 ineno + 1; 
IF lineno = nlines THEN 
BEGIN 

lastline «- TRUE; 
savewidth *- savewidth + width; 
END; 
rightpos ♦• leftmargin; 
END; 
END 
ELSE 
BEGIN 

savewidth ♦■ savewidth + width; 
IF savewidth >= w. rectangle. cw THEN EXIT; 
END; 
IF char = CR THEN 
BEGIN 

IF overtheline AND rightpos = leftmargin THEN 
BEGIN 

rightpos ♦• oldright; 
1 ineno ♦- 1 ineno - 1 ; 
END; 
EXIT; 
END; 
SELECT char FROM 

<Space => newchar <- cc; 

IN [•a..'z],IN ['A-.^Z] => newchar ^ ch; 
IN ['0,.'9] => newchar ♦• ch; 

=Space => newchar ♦- sp; 

ENDCASE => newchar ♦• xtra; 

IF firsttime OR oldchar # newchar THEN 
BEGIN 

oldstart ♦- start: oldend ♦• end; 
oldleft «- leftpos; oldright ^ rightpos; 
start ^ end ♦- save; 
leftpos ^ rightpos; 
rightpos «- rightpos + width; 
firsttime <- FALSE; 
END 
ELSE 
BEGIN 

rightpos *- rightpos + width; 
end ♦- save; 

If EqualIndex[w.eof index. Getlndex[w. f i 1 e]] THEN FXIT; 
END; 
REPEAT 
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FINISHED »> 
BEGIN 

start ♦• oldstart; end ♦• oldend; 
leftpos ♦• oldleft; rightpos ♦• oldright; 
END; 
ENDLOOP; 
Setlndex[w.f ile, savedindex]; 
sel .right! ine ^ MAX[sel . lef tl ine,l ineno]; 
selt ♦- Selection[ 

leftpos, rightpos. MIN[sel . left! ine J ineno] , , start, end]; 
RETURN 
END; 

ComputeTabWidth: PROCEDURE [font: FAptr, x: xCoord] 
RETURNS [CARDINAL] = 
BEGIN 

tw: CARDINAL = ComputeCharWid th[ ' .font] * 8; 
RETURN[tw - x MOD tw] 
END; 

CommandStuff : PUBLIC PROCEDURE [w: WindowHandle, x: xCoord. y: yCoord]* 
BEGIN 

n: CARDINAL; 

IF -useKeyset THEN RETURN; 
n ♦• GetKeySet[]; 
IF w.ks # NIL THEN 
SELECT n FROM 

IN [1..26] => w.ks.putback[w.ks. lOlB+n-1]; 

27 => w.ks.putback[w.ks. '+]; 

31 => w.ks.putback[w.ks. IC]; -- Control A 

ENDCASE; 
END; 

-- initialization for selection module 

InitSelection: PROCEDURE = 
BEGIN 

TextProcArray[RedYel lowBlue] ♦• NullProc; 
TextProcArray[RedBlue] ♦- NullProc; 
TextProcArray[RedYenow] <- CommandStuff; 
TextProcArray[Red] «- TextSelect; 
TextProcArray[BlueYel low] ♦- NullProc; 
TextProcArray[Blue] «- MenuSelect; 
TextProcArray[Yellow] ♦• WordSelect; 
TextProcArray[None] <- NullProc; 
END; 

— MAIN BODY CODE 
InitSelection[]; 

END. of wmanselection 



